library(fixest)
library(xtable)
library(rio)

minmax <- function(x) {(x - min(x,na.rm=T))/(max(x,na.rm=T) - min(x,na.rm=T))}

translation_df <- import("translation_assessment.csv")

print(etable(feols(m_diff ~ 
       minmax(overall) +
       minmax(overall_expert_1) +
       minmax(overall_expert_2) | 
       model + study, translation_df),
       tex = T))


